home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 May / 64er_Magazin_88-05_1988_Markt__Technik_de_Side_A.d64 / fader demo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  1.4 KB  |  40 lines
  1. 10 ifa=0thena=1:load"fader",8,1
  2. 20 print"[147]bitte warten, spritedaten werden geles.":poke53281,0:poke53280,0
  3. 30 data ,,,,,,,,,,,80,,,80,63,252,,255,255,240,255,188,48,255,188,48,255,172
  4. 40 data 204,255,188,204,255,188,140,255,255,252,160,160,158,191,161,251,251
  5. 50 data 207,191,238,206,239,238,206,236,251,207,188,63,3,240,0,0,0
  6. 60 data 51,51,51,51,51,51,204,204,204,204,204,204,0,0,0,63,255,127,63,255,127
  7. 70 data 55,24,192,55,24,192,103,24,126,103,48,126,255,48,3,199,48,3,199,48,254
  8. 80 data 199,48,254,0,0,0,204,204,204,204,204,204,51,51,51,51,51,51,0,0,0
  9. 90 data0,60,0,0,60,0,0,235,0,0,235,0,3,170,192,3,86,192,14,70,176,14,86,176
  10. 100 data58,170,172,58,170,172,132,170,171,42,170,168,41,89,88,41,25,24,41,25,24,41
  11. 110 data89,24,42,169,24,42,169,24,42,169,24,42,169,24,42,169,24
  12. 120 v=53248:forx=12288to12288+62:reada:pokex,a:next
  13. 130 forx=12352to12352+62:reada:pokex,a:next
  14. 140 forx=12416to12416+62:reada:pokex,a:next
  15. 150 pokev+21,0:pokev+28,16:pokev+23,0:pokev+29,0
  16. 160 print"[147]":poke2040,192:poke2041,193:poke2044,194
  17. 170 pokev,100:pokev+2,100:pokev+8,100:pokev+1,100:pokev+3,100:pokev+9,100
  18. 180 sys28960,0,30000,0
  19. 190 forx=0to1000:next
  20. 200 sys28672,1,0,30000,31000,0
  21. 210 forx=1to500:next
  22. 220 sys28672,0,1,30000,31000,0
  23. 230 forx=1to500:next
  24. 240 pokev+23,3:pokev+29,3
  25. 250 forx=1to500:next
  26. 260 sys28672,1,0,30000,31000,0
  27. 270 forx=1to500:next
  28. 280 sys28672,0,1,30000,31000,0
  29. 290 forx=1to500:next
  30. 300 pokev+23,0:pokev+29,0
  31. 310 forx=1to500:next
  32. 320 sys29162,0,30000,0
  33. 330 forx=1to500:next
  34. 340 sys28960,4,30000,0
  35. 350 forx=1to500:next
  36. 360 sys28672,1,4,30000,31000,0
  37. 370 forx=1to500:next
  38. 380 sys29162,1,30000,0
  39. 390 print"fertig !"
  40.